home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / e / AmSp4E.lha / AmSp_Example2.e < prev    next >
Text File  |  1998-02-05  |  823b  |  32 lines
  1. /******************************
  2. *******************************      Used:
  3. ** example 2 for AmosBobs.m  **
  4. **                           **      - mGetIBPalette
  5. ** Get palette to screen.    **      - mLoadIB
  6. **                           **      - mEraseIB
  7. ** (C) 1999 By Krzys Cmok    **
  8. *******************************
  9. ******************************/
  10.  
  11. MODULE '*amosbobs'             /* open module for amos bobs */
  12.  
  13. PROC main()
  14. DEF databank,s                 /* definition of datas (databank) and screen (s) */
  15.  
  16. /* load willy.abk file */
  17. IF (databank:=mLoadIB('willy.abk'))=0
  18.     WriteF('Can\at load willy.abk\n')
  19.     CleanUp()
  20. ENDIF
  21.  
  22. s:=OpenS(320,200,4,0,'Example 2');
  23.  
  24. mGetIBPalette(databank,s)      /* palette to screen */
  25.  
  26. REPEAT ; UNTIL Mouse()=1
  27.  
  28. CloseS(s)
  29. mEraseIB(databank)                    /* clean memory */
  30.  
  31. ENDPROC
  32.